#! /usr/bin/perl

use strict;
use diagnostics;
use Time::Format qw(%time);

my $today = $time{'yyyy-mm-dd'};
print "$today\n";
